/>5^ 

S0RT2 S<>-il -- PHASh 2 MACRO V05. 01b Mondr-y 06-Hay-S5 x7:A6 

Table of rofitiir:t& 

PA3G 2 INITIALIZATION 

DECIDE STRATEGY FOR NEXT MERGE PASS 

INITIALIZE FOR NEXT MERGE PASS 

DO hii-RGE PASS 

SUBROUTII'^cS 



3- 


.1 


4 .. 


t 


f»-- 


j 


6- 


{ 


14- 


J 



5DRT2 



:■; i 



rtACRf! v05. OJh Mund.iy 06 -May -oS 



4 A 



f'i-;Ui 



.1 

p ooGr>oo 

3 

6 

7 

8 

9 
10 
11 
12 
13 
1-^ 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000000 ' 



TITLE 
CSECT 
ENABL 



S0RT2 
SORT 2 



SORT 



P2BASE = 



THIS SECTION OF SORT REPEATEDLY MERGES THE SORTED 
STRINGS PRODUCED BY PASS 1 UNTIL ONLY A SINGLE SORTED 
STRING REMAINS. THE !-lNAI_ MERGE PASS WRITES THIS STRING 
TO THE OUTPUT FILL. 

Copyright < c ) 1980, 1981. 
S?<H Computer Sy stems, Inc. 
Na&hviile, Tprint-Bi^ee USA 

All rights reserved. 

This software may not be sold, distributed or otherwise made 

available for use except as licensed by S&H Computer Systems, Inc. 

COBOL -PiuB, SORT-Plus, RTSORT, TSX and TSX-Plus are registered 
trademarks of b&H Computer Systems, Inc. 



MACRO TO CAUSE ABORT 

. MACRO XXX COD 



XXX 'COD = 

MOV 

CALL 
. ENDN 



«COD'. ,R0 

ABOR'f 
XXX 



GLOBAL DEFINITIONS. 

. OLOBL S0RTP2, P2T0P. P2SIZ 

GLOBAL REFERENCES. 

. GLODL RWDLEN, ABORT, FD3, CISRT2 

. GLOBL KTYPE, TOPMEM, RECLEN, EOFBUF 

. GLOBL FILRN, FILST, MXFILS, MXFIL2 

. GLOBL FIl NB, OBFEND, OBUFSZ 

. GLOBL NUMKY2, OBUFl, OBUF2, OBUFSZ 

. GLOBL NXTBLK, ORPOS, FLUSH, COMPAR 

. GLOBL DSKCVT, FLBLK, FILFL 

. GLOBL CUROFL, FT*T, KSTRT 

. GLOBL BLKFC, P2TERM, OWCNT 

. GLOBL I TYPE, RTiSCR, RT«VLN 

. GLOBL RT*CBL, RT^DBL, RT«FTN, RT^TXT 

. GLOBL RT*OS, RT'$OR, RT«OX, RT^Fl 1 

. GLOBL RT-SRA, RT*RB 

.GLOBL OfYPE, F«INPL 

. GLOBL UEOF, SFLAGS 



000050 



FILE MANAGEMENT TABLES. 
MXMRG = 40. 



; ABSOLUTE MAX # OF FILES TO BE MERGED. 



S0RT2 



SIR J 
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53 
59 
60 
61 
6P 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 

7a 

79 
80 
81 
82 
83 
84 
85 



000120 



OOOOOO 
0<J0.^20 
000240 
000360 
000r>00 
000620 
000740 
00 J 060 



00.1200 
001202 
001204 
001206 
001210 
001230 
001232 
001234 
001236 
001240 

00/242 



000015 
000012 
000032 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 

OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 

000 



MX MR 02 


= 


2K-MXMR0 


MRGLST 


. BLKW 


MXMRG 


LOC: 


. BLKW 


MXMHG 


LOSER: 


. BLKW 


MXMRG 


FE: 


. BLKW 


NXMRG 


f-I: 


. BLKW 


MXMRO 


RN: 


. BLKW 


MXMRG 


IRPOS: 


. BLKW 


MXMRO 


MRGBA: 


. BLKW 


MXMRG 


* 

i OENERAL DATA 




CR 


= 


15 


LF 


= 


12 


CTRL 7 


= 


32 


GRNTBl. 


. WORD 





GRNEND 


. WORD 





NFILE2 


. WORD 





NUMMRO 


. WORD 





EMTBLK 


. BLKW 


10 


RC: 


. WORD 





Q: 


. WORD 





RQ: 


. WORD 





NXOBLK 


. WORD 





on INK 


. WORD 





i 

FINFLO 


. BYTE 
. EVEN 






LIST OF FILES TO MERGE 
ADDREEiS OF RECORD < J). 
INDEX TO LOSER BELOW THIS NODE. 
EXTERNAL BLOCK FORWARD LINK. 
INTERNAL BLOCK FORWARD LINK. 
RUN # THIS RECORD WILL GO IN. 
CUR POINTER INTO BUFFER 
ADDRESS OF FILE BUFFER 



ASCII CARRIAGE RETURN 

ASCII LINE FEED 

CTRL -2 DIBOL EOF CHARACTER 

ADDRESS OF START OF GRANULE TBL. 

END OF GRANULE TABLE. 

MAX # OF FILES WHICH CAN BE MERGED. 

« OF FILES TO MERGE NEXT PASS. 

SPACE FOR EMT ARGS 

RUN # OF CURRENT RUN. 

INDEX 10 CURRENT RECORD. 

RUN # CURRENT RECORD WILL GO IN. 

ADDRESS OF NXT BLOCK TO OUTPUT. 

LINK TO PREV RUNS IN FILE 

i 1----=.>THIS IS FINAL MERGE. 



sort;:' 

PASS c 



1 



HASh 2 MACRO V05. 01b hondou 



JNl i JAl IZATiW: 



-05 r 



Wj PiiQi; 3 



SBTTL 



2 JNIIIALIZATIDN 



4 



5 


001244 


004767 


OOOOOOG 


6 

y 

8 

9 

.10 


001250 


01 2"/01 


006424 ' 


001254 


010167 


1 77720 


11 


001260 


016702 


OOCOOOG 


12 


00 1264 


062702 


000O17 


13 


001270 


006202 




lA 


0012/2 


006202 




15 


001274 


006202 




16 


00 J 276 


060102 




17 


001300 


010267 


177676 


IS 


001304 


005021 




19 


0Oi3O6 


020102 




20 
21 

22 


001 310 


103775 




001312 


012702 


000002 


23 


001316 


016704 


ooooooe 


24 


001322 


004767 


004662 


25 


001326 


005304 




26 


001330 


005302 




27 


001332 


003373 




2(3 








29 


001334 


016703 


OOOOOOG 


30 


001340 


010167 


OOOOOOG 


31 


001344 


060301 




32 


001346 


010167 


0000000 


33 


001352 


010167 


OOOOOOG 


34 


001356 


06O301 




3D 








36 








37 








3B 


001360 


005002 




39 


001362 


010162 


000120' 


40 


001366 


066701 


OOOOOOG 


41 


001372 


010162 


001060' 


42 


001376 


066701 


OOOOOOG 


43 


001402 


020167 


OOOOOOG 


44 


001106 


101005 




45 


001410 


062702 


000002 


46 


001414 


020227 


000120 


47 


001420 


103760 




48 


001422 


006202 




49 


001424 


010267 


177554 


50 


001*?30 


005067 


177600 


51 


001434 


005067 


177570 


52 


001440 


005067 


17/566 


53 


001444 


005067 


17/566 


54 


001450 


105067 


17/566 



ALLOCATE AVMIl ABLE CORE SPACE. 



S0RTP2; CALL CISRT2 

MOV #P2I0P, Rl 
SET UP GRANULE BIT TABLE. 
A 1 IN THIS TABI-E INDICATES 
DISK GRANULE IS FREE. 



CHECK IN FOR 
GEl START OF 



OVERLAY BREAKPOINT 
FREE MEMORY SPACE. 



THE CORRESPONDING 



MOV 
MOV 
ADD 
ASR 
ASR 
ASR 
ADD 
MOV 

1*: CLR 
CMP 
BLO 

} THE LAST 
MOV 
MOV 

6*: CALL 
DEC 
DEC 
BOT 

; ALLOCATE 
MOV 

3*: MOV 
ADD 
MOV 
MOV 
ADD 



FILE 



R 1 , GRNTBL 
NXTBLK, R2 
#15. ,R2 
R2 
R2 
R2 

Rl, R2 
R2, ORNEND 
(Rl) + 
Rl, R2 
1 <S 
GRANULES ARE ACTUALLY FREE 
#2, R2 
NXTBLK, R4 
REL.GRN 
R4 
R2 
6S 

I/O BUFFERS. 
OBUFSZ, R3 
Rl, OBUFl 
R3, Rl 
R 1 > OBFEND 
R1,0BUF2 
R3, Rl 



SET START OF TABLE ADDRESS. 
GET « OF DISK BLKS TO ALLOCATE. 
CONVERT # OF BITS TO # OF WORDS. 



GET ADDRESS OF END OF TABLE. 



MARK ALL GRANULES AS BUSY. 



; FREE THOSE GRANULES. 



i GET SIZE 
; ALLOCATE 



OF TEMP FILE BUFFER. 
OUTPUT BUFFERS. 



END OF BUFFI 



ALLOCATE FILE INPUT BUFFERS 



4*: 



2*: 



CLR 


R2 


MOV 


Rl, L0C<R2) 


ADD 


RWDLEN. Rl 


MOV 


R1,MRGBA(R2) 


ADD 


OBUFS2,Rl 


CMP 


R 1 , TOPMEM 


BHI 


2* 


ADD 


#2, R2 


CMP 


R2, #MXMRG2 


BLO 


4-ii 


ASR 


R2 


MOV 


R2, NFILE2 


CLR 


RQ 


CLR 


RC 


CLR 





CLR 


NXDBLK 


CLRB 


FINFLG 



i COUNT # OF FILES ALLOCATED 
; ALLOCATE RECORD BUFFER 

; ALLOCATE FILE BUFFER 

HIT TOP OF MEMORY? 

BR IF YES 

COUNT ANOTHER FILE ALLOCATED 

ALLOCATED MAX ALLOWED? 

BR IF NOT 

GET # OF FILES 

SAVE # OF FILES ALLOCATED 

INIT MISC PARAMETERS 



S0RT2 Sr.ff -- PHASP 2 MACRO V05. 01b 
DECIDE STRAFF t'Y FOH NEXT NE.RGE PASS 



>'^ 
4 

r> 

6 
7 
8 
9 
10 
11 

li:' 

13 
14 
15 
16 
1 7 
10 
19 
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. SBTTL DECIDE STRATEGY FOR NEXT MERGE PASS 

THIS SECTION OF SORT DETERMINES THE STRATEGY 
TO BE CARRIED OUl BY THE NEXT MERGE PASS. 
ON ENTRY TO DOMRG THE CELL NUMMRG CONTAINS 



THE NUMBER OF 
TO 1 IF THIS 



FILES TO MERGE. FINFLG IS 
IS THE FINAL MERGE. 



JET 



23 
24 
25 
26 
27 
20 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
4f? 
46 
47 
48 
49 
50 
51 
52 
53 
54 



57 



001454 
001<?56 
001460 
001464 
001466 
001472 
001474 
001^76 
001 POO 
001502 
00 1 504 
00 i506 
001510 
001514 
00r''.t6 
001520 
001524 

001 526 
001532 
001536 
001544 

001546 
001552 
001554 
001556 
001560 



001562 
001566 
001570 
001574 



001 
OCi 
001 
001 
001 
001 
001 



604 
606 
612 
614 
616 
620 



624 
630 

632 
634 
640 



005002 
005003 
012704 
010405 
062705 
012401 
020201 
103001 
010102 
060103 
020405 
103771 
020227 
101030 
001413 
020367 
101010 

105267 
010367 
012767 
000442 

016701 
006301 
005301 
020301 
103006 



166703 
005203 
010367 
000426 



OOOOOOG 
OOOOOOG 



001576 005001 
001600 012704 
001, 

001: 

OOii 
001. 
001, 



010405 
062705 
005724 
001401 
005201 
020405 
103773 
020127 
103401 
005301 
020167 
101402 



OOOOO^ 



1 77460 



177510 
177450 
OOOOOOG 



177432 



STRAT: CLR 

CLR 

MOV 

MOV 

ADD 
24: MOV 

CMP 

BHIS 

MOV 
1$: ADD 

CMP 

BLO 

CMP 

BHI 

BEQ 

CMP 

BHI 
; THIS IS FINAL 



R2 
R3 

#FILRN>R4 
R4, R5 
#MXFIL2, RJ 
<R4)+, Rl 
R2, Rl 
i^ 

R 1 , RI^' 
Rl, R3 
R4, R5 
2U 

R2, #2 
MAvlMRG 
PENMRG 
R3, NFILE2 
PENMRG 
MERGE. 



WILL GET MAX 
WILL GET SUM 
TABLE WITH # 



# OF RUNS IN ANY FILE 
OF RUNS IN ALL FILES 
OF RUNS IN EACH FILE. 



GE"f ADDRESS OF END OF TABLE. 
GET # OF RUNS IN THIS FILE. 
SAVE HIGHEST NUMBER. 



GET TOTAL NUMBER OF RUNS. 
FINISHED YET? 



MAX # OF RUNS > 
BRANCH IF YES. 



CAN WE 
BRANCH 



DO 

IF 



FINAL 
NOT. 



P'? 



MERGE? 



OOOOOOG 



i SEE 
PENMRG 



INCB 
MOV 
MOV 
BR 
IF THIS 
MOV 
ASL 
DEC 
CMP 
BHIS 
THIS IS THE 



FINFLG 

R3, NUMMRG 

#MXFILS> CUROFL 

STRFIN 
IS NEXT TO LAST 

NF1LE2, Rl 

Rl 

Rl 

R3, Rl 

MAJMRG 
NEXT TO LAST 



; SET FINAL MERGE FLAG. 

i SET # OF FILES TO MERGE. 

; GO PERFORM MERGE. 
MERGE. 



GET 2 TIMES 
MINUS 1. 
WILL NEXT PASS 
BRANCH IF NOT. 



# OF FILES WE CAN MERGE. 



FINISH FILE? 



MERGE <SUM<RN)-NFILE2+1) 



MERGE. 
FILES. 



177416 
177412 

OOOOOOG 
OOOOOOG 



OOOOOOG 



1 77344 



SUB 
INC 
MOV 
BR 

> MERGE AS 

MAJMRG: CLR 
MOV 
MOV 
ADD 

2*: TST 
BEQ 
INC 

1*: CMP 
BLO 
CMP 
BLO 
DEC 

3*: CMP 
BLOS 



NFILE2, R3 
R3 

R3, NUMMRG 
STRFIN 
MANY FILES AS 
Rl 

#FILRN, R4 
R4, R5 
#MXFIL2> ni 
( R4 ) •*• 

Rl 

R4, R5 

2$ 

Rl, #MXFILf 

3* 

R 1 

Rl, NFILE2 



FOSSIBl. 



GO DO THE 
E ON THIS 



MERGE. 
PASS. 



TABLE OF RUNS PER FILE. 

ADDRESS OF END OF TABLE. 

DOES THIS FILE HAVE SOME RUNS? 

BRANCH IF IT'S EMPTY. 

COUNT # OF FILES THAT AREN'T EMPTY. 

FINISHED? 

MAX MERGE OF (MXFILS-1). 



MAX MERGE OF (NFILE2). 



SORT? 3f'n PHASE- 2 h?ACRO V05. Olb MundiHl 06 -May-35 J7:46 Ptu^e 4-1 

DEC IDF ST"^A7--^Y FOF^ NEXT H?:RGE PASS 

50 001.^4? 016701 17/336 MOV NFIl ELM<1 

59 0OJ646 010167 177334 4$: MOV R1,WUMMRG i SET # OF FILES TO BE MERGED. 

60 0ui6f:'» 006367 177330 STRFIN: ASL MUMMRG 'SET 2if # OF FILES TO MERGE 



S0RT2 Sr'-n PHA 



or- 2 MACRO V05. 
MERGE PASS 
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i 



4 








6 








7 


001656 


105767 


177360 


8 

9 

10 


00 J 662 


001023 










11 


001664 


012701 


001747 


12 


001670 


005OO2 




13 


001672 


020162 


OOOOOOG 


14 


001676 


101404 




15 


001700 


010205 




16 


001702 


016201 


ooooooe 


17 


001706 


001405 




IB 


001710 


062702 


000002 


19 


001714 


020227 


OOOOOOG 


20 


001720 


10v3764 




21 


001722 


010567 


OOOOOOG 


22 


001726 


005265 


OOOOOOG 


23 


001732 


016701 


OOOOOOG 


24 


001736 


105767 


177300 


2S 


001742 


001002 




26 


001744 


005021 




27 


001746 


005021 




28 
29 
30 


001 750 


010167 


OOOOOOG 








31 


001754 


005001 




32 


001756 


005002 




33 


001760 


005003 




34 


001762 


012700 


177777 


35 


001766 


020362 


OOOOOOG 


36 


001772 


101O27 




37 


001774 


103405 




33 


001776 


005703 




39 


oo;;^ooo 


001424 




40 


002002 


020062 


OOOOOOG 


41 


oo;;:f'06 


101421 




42 


002010 


020267 


OOOOOOG 


43 


002014 


001416 




44 


0O2016 


005004 




45 


002020 


020401 




46 


oo:<'22 


001406 




47 


002024 


020264 


000000 ' 


40 


002(^30 


001410 




49 


002032 


062704 


000002 


50 


00;/'36 


000770 




51 


002040 


016203 


OOOOOOG 


52 


002044 


016200 


OOOOOOG 


53 


002 < -50 


010205 




54 


002052 


062702 


000002 


55 


002056 


020227 


OOOOOOG 


56 


002062 


103741 




57 


002^6'? 


010561 


000000 ' 



. SBTTL INITJALlZf: FOR NEXT MERGE PASS 

OF SORT USES THE INFORMATION SET VP BY 
THE STRATEGY DECISION MAKER TO INITIALIZE TABLES WHICH 
ARE USED TO DO THE ACTUAL MERGE. 



DOMRG: TSTB FINFLG 

BNE 9* 
; FIND WHICH FILE TO USE FOR 
i USE THE FILE WITH 1HE SMAL 

MOV #999, ,R1 

CLR R2 

2*: CMP R1,FILRN(R2) 

BLOS 1 H 

MOV R2, R5 

MOV FILRN(R2),RI 

BEQ 1 O* 

1*: ADD #2, R2 

CMP R2, #MXF3L2 

BLO 21i 

10*: MOV R5, CUROFL 

INC FILRN<R5) 

9$: MOV 0BUF1,R1 

TSTB FINFLG 

BNE 3$ 

CLR (Rl)+ 

CLR (Rl)+ 

8*: MOV Rl.ORPDS 
i FIND THE NUMMRG/2 FILES WI 



i FINAL MERGE 7- 
i BRANCH IF YES. 
OUTPUT. 
LEST NUMBER OF RUNS IN IT. 



TO 



7$: 



6*: 



il$: 



4$: 



5*: 



3$: 



USE AS 
CLR 
CLR 
CLR 
MOV 
CMP 
BHI 
BLO 
TST 
BEQ 
CMP 
BLOS 
CMP 
BEQ 
CLR 
CMP 
BEQ 
CMP 
BEQ 
ADD 
BR 
MOV 
MOV 
MOV 
ADD 
CMP 
BLO 
MOV 



INPUT. 
Rl 



') 



R2 

R3 

#177777i RO 

R3, FILRN(R: 

315 

llli 

R3 

3* 

RO, FILNB<R2) 

31i 

R2, CUROFL. 

3* 

R4 

R4, Rl 

5* 

R2, MRGLST<R4) 

3* 

«2, R4 

4"ii 

FILRN<R2.). 
FILNB<R2), 



R3 
RO 



P'"> 



ti--P 



R5 

R2 

#mxf3l; 



R5, MRGLST (Rl) 



SAVE INDEX 7 FILE 

GET « OF SORTED RUNS IN FILE 

CAN'T BEAT ZERO 

MOVE ON TO NEXT FILE 

CHECKED ALL? 

SAVE INDEX TO OUTPUT FILE. 
ANOTHER RUN GOES TO THIS FILE. 
GET ADDRESS OF 1ST OUTPUT BUF. 
IS THIS FINAL MERGE? 
BRANCH IF YES. 
ZERO FLINK FIELD. 
ZERO # OF BYTES IN BLOCK. 
SAVE ADDRESS WHERE NXT REC GOES. 
TH THE LARGEST NUMBER OF RUNS 

; # OF FILES WE HAVE GOTTEN. 
i# OF FILE TO CHECK NEXT. 

i LOOK FOR SMALLEST # OF BLOCKS 
; SAVE LARGEST NUMBER OF RUNS. 

; TAKE n IF MORE RUNS 

J IS THIS FIRST TIME THROUGH? 

i BR IF YES 

i SELECT FILE WITH SMALLEST # BLOCKS 

i IS THIS THE OUTPUT FILE? 

; IF YES THEN CAN'T USE FOR INPUT. 

; SEE IF FILE IS ALREADY IN IN LIST. 

; AT END OF LIST? 

> BRANCH IF YES. 

; SEE IF IN LIST. 

i IF YES THEN DON'T GET IT AGAIN. 



SAVE # OF RUNS IN THIS FILE. 

GET # OF BLOCKS IN FILE 

SAVE INDEX TO FILE. 

MOVE ON TO NEXT FILE 

CHECKED ALL FILES? 

BRANCH IF NOT. 

ADD FILE TO INPUT LIST. 



I 
f 






■ PMASF 2 ^^ACRO VOS 
NtX I ^iERG^^ PASS 



50 
59 
60 
61 
hP 
63 
64 
65 

hi 

68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
B5 
86 
87 
88 
39 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
1 03 
104 

ior> 

106 
107 
108 
109 



002070 
002074 
002 1 00 



002102 
002106 
002110 
002112 
0021 14 
002 11 6 
002120 
OOr: I 22 
002124 
002126 
002130 
002 1 32 
002134 
OO2140 
00214'! 
002150 
002154 
0C:-2 5 56 
002160 

002 1 62 
002164 
002170 
002174 
002200 
002204 
002206 

002216 
002220 
002;/24 
002^30 



002234 
002240 
002242 
002246 
002254 
002260 
002264 



062701 
020167 
103726 



016702 
006202 
010205 
005302 
010503 
060203 
006203 
006303 
010204 
006204 
006304 
006302 
010362 
010462 
005062 
010262 
006202 
005302 
002355 

005001 
016103 
016104 
010461 
016324 
005014 
062701 
020167 
002762 
005067 
005067 
005067 



105767 
001013 
016702 
016267 
004767 
010162 
010167 



000002 
177106 



177100 



000360 
000 5O0 
000620 
000240 



000000 ' 
001060' 
000740 ' 
OOOOOOG 

000002 
176770 

177004 
177002 
117000 



1 77002 

OOCOOOG 

OOOOOOG 

004022 

OOOOOOG 

OOOOOOG 



01b Mondrjy 06 -May-Si: 



ADD 
CMP 
BLO 



•'-)i*i 



.v; q e ::' 



4f2, Ri 
Rl,NUMMf<G 



i COUNT UP 1 MORE FILE 
; GOT AL L WE NEED? 
; BRANCH IF NOT. 



AT THIS POINT WE ARE ABOUT TO DO A MERGE FROM NUMMRG 
FILES WHOSE INDEX NUMBERS ARE STORED IN MRGLST TO 
THE OUTPUT FILE WHOSE INDEX NUMBER IS IN CUROFL. 
FINFLG IS NON-ZFRO IF THIS IS THE FINAL MERGE. 



SET UP MERGE 
MRGSE1: MOV 

ASR 

MOV 

DEC 
3$: MOV 

ADD 

ASR 

ASL 

MOV 

ASR 

ASL 

ASL 

MOV 

MOV 

CLR 

MOV 

ASR 

DEC 

BGE 
i INITIALIZE F 

CLR 
9*: MOV 

MOV 

MOV 

MOV 

CLR 

ADD 

CMP 

BLT 

CLR 

CLR 

CLR 



TABL EB. 

NUMMRG, R2 

R2 

R2, R5 

R2 

R5, R3 



R2, 

R3 

R3 



R3 



R4 



R4 
R4 
R2 

R3, FE<R2) 
R4, FI(R2) 
RN(R2) 

R2, L01iER(R2) 
R2 
R2 
3* 
JLE BUFFERS. 
Rl 

HRGLST(Rl), R3 
MRGBA(Rl), R4 
R4, IRP0S(R1 ) 
FILST(R3), <R4)+ 
(R4) 
#2, R 1 
Rl, NUMMRG 
9* 
RC 

R« 



176764 



SET UP OUTPUT FILL: 

TSTB FINFLG 

BNE SR2 

MOV CUROFL, R2 

MOV FILST(R2), OFI, 

CALL GEIGRN 

MOV R1,FILST(R2) 

MOV R1,FILFL 



; GE7 # OF FILES TO BE MERGED. 
; GET 1« # OF FILES TO BE MERGED 



NUMBER OF FILES TO MERGE). 
<J=^INDEX TO FILE). 

TO WORD TABLE INDEX. 



GET P < 

GEl Pi' J 

(P+J)/2 

CONVERT 

GET J. 

GET J/2 

CONVERT 

CONVERT 

SET 

SET 

ZERO RUN # THIS REC WILL GO IN. 



TO WORD TABLE INDEX. 

J TO WORD TABLE INDEX. 
UP EXTERNAL FLINK. 
UP INTERNAL FLINK. 



;GET FILE NUMBER. 

i GET ADDRESS OF BUFFER FOR FILE. 

; INITIALIZE RECORD POINTER 

; SET UP STARTING DISK ADDRESS. 

; ZERO # OF BYTES IN BLOCK. 

; INITIALIZED ALL FILES? 
i BRANCH IF NOT. 



i IS THIS FINAL MERGE? 
; BR IF YES 
i QEl FILE INDEX # 
INK; SAVE POINTER TO OTHER RUNS IN FIIE 
; GET A FREE CLUSTER 
J SET AS 1ST BLOCK OF FILE 



SQRT2 
DO HBROE 






P!-iASt 
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. SBTTL. DO MENOi;:: PASS 



'J 
4 
5 002270 




i 


EN ( El 


i ACTUAt 


-, MEUGE ROUflNL. 


016701 


176734 SR2: 


MOV 


RCRl ; 


6 00227 «? 


020167 


1 76734 




CMP 


R 1 , RO ' 


7 002200 


001413 






BEQ 


SR3 ; 


8 002302 


026727 


176726 OOOOOl 




CMP 


RQ, #1 i 


9 0022 jO 


101002 






BHI 


2$ ; 


10 002312 


005701 






TST 


Ri ; 


11 002314 


001402 






BEQ 


1* ■' 


12 002316 


000167 


001006 2*: 


JMP 


SRI- IN 5 


13 002322 


016767 


176706 176700 


1*: 


MOV 


RQ, RC i 


14 002330 


005767 


176700 SR3: 


TST 


RQ i 


15 002334 


001002 






BNE 


1* i 


16 002336 


000167 


000144 




JMP 


SR4 


17 






OUT 


°UT re:cord<o). 


le 002342 


105767 


1 76674 


I*: 


TSTB 


FINFLG ; 


IV 002346 

20 

21 


001051 






BNE 


FINMOV i 






WE ARE MERG 


fNG 10 AND1MER TEMf 


22 
23 
24 002350 






MOVE 


RECORD 


TO 0UTPU1 BUFFER. 


016702 


176656 


r MP MOV: 


MOV 


Q, R2 i 


25 002354 


016203 


000120' 




MOV 


L0C<R2),R3 i 


26 002360 


016702 


OOOOOOG 




MOV 


ORPOS, R2 i 


27 00236-1 


016705 


OOOOOOG 




MOV 


OBFEND, R5 ^ 


28 002370 


010304 






MOV 


R3, R4 i 


27 0<:>2372 


066704 


OOOOOOG 




ADD 


RECLEN, R4 


30 002376 


020304 


i 


2*: 


CMP 


R3. R4 i 


31 002400 


103031 






BHIS 


4* i 


32 002402 


020205 






CMP 


R2, R5 i 


33 002404 


103421 






BLO 


1* > 


34 






OUTPUT BUFFER IS FULL - - WRITf 


35 002406 


016700 


OOOOOOG 




MOV 


OBUFi,RO > 


36 002'112 


160002 






SUB 


RO, R2 i 


37 002414 


010260 


000002 




MOV 


R2, 2(R0> ; 


38 OOr'420 


004767 


003656 




CALL 


GETGRW ; 


39 002424 


010167 


OOOOOOG 




MOV 


R 1 , FLBLK i 


40 002430 


004767 


OOOOOOG 




CALL 


FLUSH i 


41 002434 


016702 


OOOOOOG 




MOV 


0BUF1,R2 :- 


42 002440 


062702 


000004 




ADD 


#4, R2 i 


43 002'14'T 


016705 


OOOOOOG 




MOV 


DEFEND, R5 i 


44 






CONTINUE MOVING RECORD 


45 002450 


1 1 2322 




1*: 


MOVB 


(R3>+, <R2) ^ i 


46 002452 


001351 






BNE 


2* i 


47 0024 54 


032767 


OOOOOOG OOOOOOG 




BIT 


#RT$VLN, rrvPE i 


43 002 '?62 


001745 






BEQ 


2'$ ■> 


49 002464 


010267 


OOOOOOG 


'?*: 


MOV 


R2, ORPOS ■> 


50 0'''2470 

51 

52 


000106 






BR 


SR4 






. MOVE 


RECORD 


TO FINAL OUTPUT B^ 


53 






'-■ 






54 002472 


016702 


176534 


'^'INMOV: 


MOV 


Q, R2 


55 00:'476 


016201 


000120' 




MOV 


L0C<R2), Rl 


56 OOr'502 


004767 


002260 




CALL 


OUfREC 


57 






f 







RUNI 



DOES CURRENT RECORD GO 

IN THIS RUN? 

BRANCH IF YES. 

HAVE WE HIT THE END OF FILE? 

BR IF YES 

IS THE INITIALIZATION 

BRANCH IF YES 

NO — WE'RE FINISHED 

ADVANCE TO NEXT RUN. 

INITIALIZATION RUN? 

BRANCH IF NOT 



FINAL OUTPUT MERGE? 
BRANCH IF YES. 



FILE 



GET MERGE LIST FILE INDEX # 

GET ADDR OF WINNER RECORD 

GET POINTER INTO OUTPUT BUFFER 

GET ADDRESS OF END OF BUFFER 

GET ADDRESS OF END OF RECORD 

MOVED ALL? 

BR IF FINISHED MOVE 

HIT END OF BUFFER? 

BR IF NOT 

: IT OUT 

GET ADDRESS OF BUFFER 

CALC # OF CHARS IN BUFFER 

STORE # BYTES IN BUFFER HEADER 

GET FREE DISK BLOCK 

SET FILE FLINK 

WRITE OUT BUFFER 

POINT TO START OF NEW RECORD 

SKIP OVER BUFFER HEADER WORDS 

GET ADDRESS OF END OF BUFFER 

MOVE RECORD TO FILE BUFFER 

BR IF NON-NULL CHAR 

ARE RECORDS VARIABLE LENGTH? 

BR IF NOT 

SAVE OUTPUT BUFFER POINTER 



c 

€ 



BUFFER 



GET MERGE LIST 
GET ADDRESS OF 
MOVE RECORD TO 



INDEX # 
WINNER RECORD 
OUTPUT BUFFER 













SORT? 


5-'Rl 


PMABfr 2 


flACRO V 




DO M:Rm 


■ ''r.i'i 








5t< 
&9 










60 


QOP'jOS 


016700 


176520 


61 


002512 


016001 


000120' 




62 


002'"' 16 


016002 


000740 ' 




63 


002522 


016003 


001060' 


64 


002526 


066303 


000002 




65 


002532 


010105 






66 


002534 


066705 


OOOOOOG 


67 


002540 


020105 






68 


002542 


103173 






69 


0O254 <? 


020203 




70 


002546 


103557 






7J 










72 


002550 


016700 


176456 


73 


002554 


016002 


001060' 




74 


002'. '60 


011203 






75 


002562 


100570 




76 










77 


002564 


010304 






78 


002566 


004 767 


003416 


79 


002572 


016004 


000000 ' 




SO 


002576 


005364 


OOOOOOG 




01 


0026 <>2 


004767 


OOOOOOG 


82 


002606 








S3 


002760 








84 


003072 


010203 




05 


003074 


066203 


000002 




86 


003100 


062702 


000004 




87 


0'3:04 


000617 




88 










89 


003106 


112221 






90 


003:10 


001213 




91 


003112 


032767 


OOOOOOG 




92 


003120 


001607 






93 
94 


003122 


020105 






95 


003124 


103002 






96 


003126 


105021 




97 


003130 


000774 






98 










99 


003132 


016700 


1 76074 


100 


003136 


010260 


000740 ' 




101 


003142 


000414 






102 








103 










104 










105 


003144 


012767 


000002 


106 


003152 


016004 


000000 ' 




107 


003156 


042703 


1 00000 




108 


003162 


010364 


OOOOOOG 


109 


003166 


005364 


OOOOOOG 




110 


003' 72 


000403 






ill 








112 










113 


003174 


012767 


000001 




114 



















V05. 01b Moj.(i;..y >06-Hay--S5 I 



r ci (J £■ C-> 



GET NEXT RECDRD FUCm INPUT FILE. 



SR4: 



3$: 



4^: 



Hn 



MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

ADD 

CMP 

BHIS 

CMP 

BLO 
END OF 

MOV 

MOV 

MOV 

BMI 
} IN NEX 

MOV 

CALL 

MOV 

DEC 

CALL 

*READ 

*WAIT 

MOV 

ADD 

ADD 

BR 



0. RO 

LOC(RO), Rl 

IRPOS(RO>, R2 

MRGBA(RO>, R3 

2<R3), R3 

Rl, R5 

RECLEN, R5 

R1,R5 

6* 

R2> R3 

2* 
BUFFER —• SEF IF 

Q>RO 

MRGBA<RO), R2 

eR2, R3 

ENDRUN 
T BLOCK FROM FILE 

R3, R4 

REI CRN 

NRGLST(RO), R4 

FILNB(R4> 

DSKCVT 

R4, R2, OWCNT, R3 

R4 



GE7 
GET 
GET 
GET 
GET 
GET 



MERGE LIST FILE INDEX # 
ADDRESS OF RECORD BUFFER 
POINTER INTO INPUT BUFFER 
POINTER 7 INPUT BUFFER 
POINTER TO END OF BUFFER 
A0DR OF END OF RECORD 



2(R2), 
#4, R2 
4* 



R3 



CONTINUE MOVING RECORD 



2*: 



PAD 



7*: 



MOVB 
BNE 
BIT 
BEQ 
END OF 
CMP 
BHIS 
CLRB 
BR 



(R2)+, (Rl ) f 
3* 

#RT*VLN, ITYPE 
3* 
VARIABLE LENGTH 
R1,R5 
6* 



; FINISHED 
6$: MOV 
MOV 
BR 



<R1 ) + 
71i 

RECDRD MOVE 
0, RO 

R2, IRPOS<RO> 
SR4L 



MOVED ALL OF RECORD? 
BR IF YES 

HIT END OF BUFFER? 
BR IF NOT 
THERE ARE MORE RECORDS IN SORTED RUN 
GET MERGE LIST FILE INDEX # 
POINT TO FILE BUFFER 
GET FILE FLINK FROM HEADER 
BR IF END OF SORTED RUN 

i RELEASE NEW GRANULE 



GET REAL FILE INDEX # 

SAY 1 LESS BLOCK IN FILE 

CV1 CLUSTER « TO FILE & BLOCK # 

START READ FOR NEXT BLOCK 

WAIT FOR COMPLETION 

GET ADDRESS OF BUFFER 

GET ADDRESS OF END OF BUFFER 

GET ADDR OF START OF DATA 



i BR IF NON-NULL RECORD 
;ARE RECORDS VARIABLE LENGTH? 
> BR IF NOT 
RECORDS WITH NULLS 
;HIT END OF RECORD? 
; BR IF YES 
iFILL WITH NULLS 



; GET MERGE LIST INDEX # 
; SAVE POINTER INTO BUFFER 



HIT END OF SORTED RUN 



176062 ENDRUN: 



MOV 
MOV 
BIC 
MOV 
DEC 
BR 



#2, RQ 

MRGLST<R0)>R4 
#100000, R3 
R3, FILST<R4) 
riLRN<R4) 
SR5 



SAY NO MORE RECORDS FROM FILE 

GET FILE INDEX NUMBER 

CLEAR EOF FLAG 

SAVE NEW FILE START ADDRESS 

SAY ONE LESS RUN IN FILE 



1 7603« 



PUT THIS RECORD IN UUN #1 
3R4L: MOV #1,UQ 

COMPARE NEW RECORD WITH PREVIOUS ONES. 



S0RT2 SORT - 
DO MERtiE :-'/^':-3 



PHA5P 
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i 
i 



115 
1 1 6 
1 1 7 
118 
119 
1 20 
iPi 

1 22 

1 23 

1 24 
1215 
126 
127 
123 
129 
:l 30 
131 
132 
1 33 
lv34 
135 
136 
137 
13B 
139 
140 



003202 
003i''06 
0('32 1 2 
003: .: 1 <1 

003:;; 1 6 

003222 
005;.26 
003230 
003:, -34 

oo;.:;:36 

003240 
00524 <1 
005250 
003: 54 
003260 
003:^64 

O03;:i66 

003272 

0<:'3;j00 

003G04 
003310 
0033 16 

003022 

003326 



016701 
016104 
005704 
001002 
000167 
016703 
001435 
020364 
101014 
001031 
016401 
016101 
016703 
016302 
004777 
002016 

016701 
016467 
010164 
016703 
016467 
010364 

016404 
000731 



176024 
000360 ' 



177046 
1 76006 



SR5 



?0' 



000240 ' 

000120' 

175756 

000120' 

OOOOOOG 



175742 
000620 
000620 
175722 
000240 
000240 

000500 



jR6 



2$: 



175734 



175714 



MOV 
MOV 
TST 
BNE 
JMP 
MOV 
BEQ 
CMP 
BHI 
BNE 
MOV 
MOV 
MOV 
MOV 
CALL 
BGE 
i RECORD<Q) 
1*: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOVE UP T 
SR7: MOV 
BR 



0.. Rl 

FE(R1 ), R4 

R4 

P^ 

BR 2 

RQ, R3 

SR7 

R3> RN(R4) 

Ifi 

3R7 

LOSER <R4), Rl 

Loc (Rl), ru 

Q, R3 

LDC<R3>,R2 
©COMPAR 
SR7 
BECOMES NEW LOSER / 
RQ, Rl 
RN<R4>,RQ 
Rl,RiM<R4) 
Q> R3 

LOSER < R4 ) , Q 
R3, L08ER<R4> 
REE. (T IS ADVANCED 
F.T<R4),R4 
SR6 



GET INDEX TO NEW RECORD. 
GET INDEX TO FATHER (T). 
AT HEAD OF TREE? 
BRANCH IF NOT 

IS THIS INITIALIZATION RUN? 

BRANCH IF VES. 

RQ: RN(T). 

BR IF RQ>RN(T). 

; GET LOSER <T). 
;GET LOC< LOSER <T) ). 

? GEl LOC(G!). 

i LOSER <T): Q. 

i BR IF LOSER (T)>=Q. 

(T THIS LEVEL. 

; RN ( T > --->RQ. 
i RQ — >RN(T). 

i LOSER < T ) — >Q. 

.; Q ->LOSER(T). 

TO NEXT HIGHER NODE) 
. FKT) -"->T. 



t.jt ';•'; ! 



mfM^i- 



DO HER«{- rV: 



3 

>1 

5 

6 

7 

8 

7 

10 

11 

12 

13 

14 

i5 

16 

17 

18 

19 

20 

Z'i 

22 

23 

24 

25 

26 

27 

23 

29 

30 

31 

32 

sen 

34 
35 
36 
37 
33 
39 
40 
41 
42 
43 



003330 

003r.34 

003^36 
003342 
0('3.'346 
0053Sv> 
0033^4 
003360 
003366 
003372 



003376 
003^.02 



003406 
0034 1 2 
003116 
003420 
003424 
003426 
003432 
003-134 
005440 



00344 4 
0034 1<0 
0034 e>4 
0034 f'6 
003462 
003464 
0O3-;72 
003474 
003000 



105767 
001020 

016701 
016702 
160102 
010261 
052711 
016767 
004767 
000167 



016704 
016705 



016700 
032700 
001412 
032700 
001407 
032700 
001404 
1 1 2703 
004/67 



016700 
032/00 
001413 
032700 
001004 
032767 
OO1004 
1 1 2703 
004767 
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END OF MERGI-. 



HO 



r.viftp 



175706 SRfIN: 



0000000 
OOOOOOG 

000002 

100000 

175654 OOOOOOG 

OOOOOOG 

1 76056 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOC 

OOOOOOG 

OOOOOOG 

000012 
002502 



OOOOOOG 2^: 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

000032 3$: 

002442 



TSTB 
BNE 
CLOSE OUT 
MOV 
MOV 
SUB 
MOV 
BIS 
MOV 
CALL 
JMP 



FINFLO 
FINCLS 
TFNP FJI..E. 
0BUF1,R1 
ORPOS, R2 
R 1 , R2 
R2,2(R1) 

^C-OIOOOOOIJ-. (Rl) 
OFLINK, FLBl K 
FLUSH 
STRAT 



J WAS THIS THE LAST 
i BRANCH IF IT WAS. 



MERGE? 



SET END OF RUN FLAG. 
GET CURRENT BUFFER INSERT POINTER 
CALCULATE # OF BYTES IN BUFFER 
STORE BYTE COUNT INTO BUFFER HEADER 

CHAIN TO PRflVIOUS RUNS IN FILE 

WRITE OUT LAST BLOCK. 

DEI ERMINE FUTURE STRATEGY. 



Close out the final output (result) file. 



FINCLS: MOV 
MOV 



ORPOS, R4 
DBFEND, R5 



; GET CURRENT OUTPUT BUFFER POINTER 
i ADDRESS OF END OF OUTPUT BUFFER 



See if me nsed to insert line -feed after last record. 



MOV 

BIT 

BEQ 

BIT 

BEQ 

BIT 

BEQ 

MOVB 

CALL 



DTYPE, RO i GET OUTPUT FILE TYPE FLAGS 
#RT*CBL+RT*FTN, RO i COBOL OR FORTRAN FILE? 



2* 

#RT*RA, RO 

2* 

#RT*OS, RO 

2* 

#LF, R3 

OUTCHR 



BR IF NOT 

RECORDING MODE ASCII? 

BR IF NOT 

ORGANIZATION SEQUENTIAL? 

BR IF NOT 

INSERT LF 



See i f we should insert control-z at end of file. 



GET FLAGS 

DIBOL FILE? 

BR IF NOT 

ORGANIZATION SEQUENTIAL? 

BR IF YES 

INPLACE RANDOM FILE? 

NO CONTROL "Z IF YES 

INSERT CONTROL -Z 



MOV 


OTYPE, RO 


BIT 


#RT<BDBL> RO 


BEQ 


FILL ST 


BIT 


#RT$OS, RO 


BNE 


3* 


BIT 


#F*INPL, SFLAGS 


BNE 


FIl LST 


MOVB 


#CTRLZ, R3 


CALL 


OUTCHR 



i 

t 
f 
I 
i 
I 
i 

i 
i 
< 
i 

i 
4 
4 
< 

4 

« 
I 

< 
i 



DO MizRQF PAr; 
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1 



3 
■4 


oo:-':^04 


016703 


0000000 


13 


003 'V 10 


032703 


0000000 


6 
■/ 


oo;j'>i4 


001560 




if 

9 

10 


003516 


004767 


002016 


11 








1? 








13 


003522 


032767 


OOOOOOG OOOOOOG 


14 


00C^530 


001002 




15 
16 
17 


003532 


000167 


001110 


003536 


005024 




1 


0031=40 


020405 




19 


003342 


103775 




20 


003544 






21 


003 ^24 






PS' 


004040 


103002 




23 


004042 


000167 


000600 


24 


004046 






25 


004046 


066767 


OOOOOOG 175162 


26 
27 


004054 


000633 




20 
29 








30 


004056 


016703 


OOOOOOG 


31 


004G62 


032703 


OOOOOOG 


32 


004066 


001033 




33 


004070 


032703 


OOOOOOG 


34 


004C74 


001210 




3D 


004076 


032703 


OOOOOOG 


36 


004102 


001605 




37 








38 








39 








40 


004104 


016703 


OOOOOOG 


41 


00-1 1 1 


020405 




42 


004 1 1 2 


1 03405 




43 


004 t 1 4 


004767 


001440 


44 


004120 


103002 




45 


004 1 22 


000167 


000520 


46 


004 1 26 


010324 




47 


004 1 :jO 


020405 




43 


004 1 32 


103405 




49 


004 1 34 


004767 


001420 


50 


004140 


103002 




51 


004142 


000167 


000500 


52 


004146 


005024 




53 


004 1 50 


005303 




54 


001152 


003366 




55 


004154 


000753 




56 









Determine how to f.ijl out end of current buffer. 



Fit L ST; MOV 
BIT 
BEQ 



OTYPE, R3 
#RT*OS, R3 
2* 



.:Or-T OUTPUT FILE TYPE FLAGS 
; DR0AN12ATI0N = SEOUENTIAL? 
;iBR IF NOT 



} Output organization i^ sequential. 

i 

4*: CALL OUTBUF ; WRITE CURRENT BUFFER TO FILE 

i If this is an inplace sort* fill refet of file with nulls. 

BIT #F*INPL, SFLAGS i INPLACE SORT? 

BNE 1* i BRANCH AROUND IF INPLACE 

JMP CLSOUT ; v'UMP IF NOT INPLACE SORT 

J Wiite nulls to remaindeT' of file. 

!■$: CLR (R4)+ i FILL BUFFER WITH NULLS 

CMP R4, R5 ; FINISHED? 

BLO lt> ; BR IF NOT 

3*: *WRITE #FD3, DBUFl . OWCNT, NXOBLK 

*WA1T *IF}>3 

BCC 31$ 

JMP CLSOUT i JUMP IF END OF FILE REACHED 
31-$: 

ADD BLKFC, NXOBi K i ADVANCE BLOCK # 

BR 3* i CONTINUE WRITING NULLS 

i Output organization is Relative. 

i 

>■*: MOV OTYPE, R3 .= GET OUTPUT FILE TYPE FLAGS 

DIBOL FILE? 
BR IF YES 

RECORDING MODE = ASCII? 

IF YES THEN FILL REST OF FILE WITH NULLS 
COBOL BINARY RELATIVE FILE? 
BR IF NOT 

Fill COBOL relative orpani zatioii binary file with deleted records. 

5$; MOV RECLEN, R3 > GET RECORD LENGTH 

IS BUFFER FULL? 
BR IF NOT 
DUMP BUFFER 



MOV 


OTYPE, R3 


BIT 


#RT$DBL, R3 


BNE 


10* 


BIT 


#RT*RA, R3 


BNE 


4* 


BIT 


#RT*CBL, R3 


BEQ 


4* 



6* ! 

7$: 



8$: 



MOV 


RECLEN, R3 


CMP 


R4, R5 


BLO 


6* 


CALL 


RLOUT 


BCC 


6* 


JMP 


CLSOUT 


MOV 


R3, <R4) + 


CMP 


R4, R5 


BLO 


B* 


CALL 


RLCIUT 


BCC 


8* 


JMP 


CLSOUT 


CLR 


(R4) + 


DEC 


R3 


BGT 


7* 


BR 


5-^ 



JUMP IF END OF FILE REACHED 

STORE DELETED-RECORD RECORD CONTROL WORD 

IS BUFFER FULL? 

BR IF NOT 

DUMP BUFFER 

JUMP IF END OF FILE HIT 
FILL RECORD WITH NULLS 



57 



; GO DO NEXT RECORD 
This is a DIBDL random access file. 



soR'i;;' SUA) --■ 

DO HEHirif ;v'.f 3 

57 
60 
6.1 OO'Mlk^ 

62 004164 

63 004166 

64 004172 
6x1, 

66 004172 

67 004174 
60 004^00 

69 004204 

70 004206 

71 004213 

72 004;:^26 
7D 004^0f^ 

74 004622 

75 004624 

76 004630 

77 004632 
70 004634 
79 004640 
80 

81 004642 

S2 

83 

84 

85 004646 

86 004762 
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032/67 
001002 
000167 



010403 
166703 
032703 
001002 
000167 



010302 
066702 
1 1 2224 
005203 
032703 
001373 



0000000 0000000 
000450 



0000000 
000777 



000430 



OOOOOOG 



000777 



004767 000672 



If thiE is an inplace sort/ preserve the contents of the end of the 
file beyond the t-ori output. 

lOS: BIT #F1;INPL > SPLAGS ; INPLAOE S0R7? 
BNE 14^^ 
JhP 13'^ iJimP IF NOT 



14-*: 



Read in blocf; from file and pad with original data. 



15^S: 



12^: 



MOV 

SUB 

BIT 

BNE 

JMP 

*WA.TT 

*READ 

*WAIT 

MOV 

ADD 

MOVE 

INC 

BIT 

BNE 



R4, R3 

OBUFl, R3 

#777, R3 

15'$ 

13$ 

#FD3 

#FD3, 0BUF2, OWCNT, NXOBLK 

#FD3 



; GET OFFSET WITHIN CURRENT BUFFER 

i ARE WE ON A BLOCK BOUNDARY NOW? 

i JUMP IF YES <DON'T NEED TO FILL THIS BLOCK) 



GET POINTER INTO NEW BUFFER CORRESPONDING TO 

OFFSET IN OLD BUFFER 

FILL WITH ORIGINAL FILE DATA 



R3, R2 
0BUF2, R2 
(R2)+, <R4) !' 

#777, R3 i REACHED BLOCK BOUNDARY YET? 

12* ;BR IF NOT 

i Now write out the last buffer load. 
13-*: CALL OUTBUF 



Close output file and terminate sort. 



000167 OOOOOOG 



CLSOUT: *WAIT 
JMP 



•ilFD3 
P2TeRM 



iWAIT FOR LAST WRITE TO FINISH 
; TERMINATE THE SORT 



I 

i 



S0RT2 SHRT 
DO MERGE PAf ; 

1 



PHASr- 
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€ 
4 

i 

i 
4 
< 

I 



3 
4 



7 
v9 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3S 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



OO'-I.^^* 
004770 
004/72 
OCA 774 
004776 
005000 
005004 
OOf'OlO 



O 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 



or}oi4 



50?'0 
5024 
5026 

5034 
.v036 
K'42 
504 •'! 
5050 
5052 
5054 
5060 
50%^2 
5<.-66 
5070 
5072 
5100 



00 
00 
00 
00 
00 
00 

00 
00 
00 
00 



>102 
5104 
5106 
5112 
5114 
116 

5120 
5126 
5130 

5 1 34 



005136 

005140 

00 

00 

00 

00 

005154 



a. 142 
5144 
5146 
5152 



010146 
010246 
010346 
010446 
010546 
016704 
016705 
016702 



016700 
032700 
001404 
032700 
001133 
000422 
032700 
001404 
032700 
001066 
000564 
03270O 
001404 
032700 
OOlOOl 
000456 
032/67 
001016 



020405 
103402 
004767 
112124 
005302 
003371 

032767 
001574 
004767 
000571 



112103 
001407 
020405 
103402 
004767 
1 1 0324 
005302 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOC 

OOOOOOG OOOOOOG 2$: 



OUTREC is caJJetl to move the record 
final output Pile buffer. 



OUTREC: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



pointed to by f?l to the 



Rl, 


- < SP ) 


R2> 


- ( SP ) 


R3, 


.-i,r^) 


R4, 


-<SP) 


R5, 


• < liP ) 


DRPOS, R4 


OBFEND, R5 


RECLEN, RP. 



Determine record type. 

MOV OTYPE, RO 

BIT #RT*F11,R0 

BEQ 3* 

BIT #RT$OS, RO 

BNE ORRS 

BR ORFL 

3*: BIT #RT$CBL, RO 

BEQ 1* 

BIT #RT*RA, RO 

BNE ORCA 

BR ORCB 

1*: BIT #RT*FTN, RO 

BEQ 2* 

BIT #RT*OR+RT*RB. RO 

BNE 2* 

BR ORCA 

BIT #RT*VLN, ITYPE 

BNE DRVL 



Fixed length record. 



000426 



ORFL: 



1*: 



CMP 


R4, R5 


BLO 


1* 


CALL 


OUTBUF 


MOVE 


(Rl)+, <R4)+ 


DEC 


R2 


BGT 


ORFL 



OOOOOOG OOOOOOG 
001026 



See if we should add CR-LF. 
BIT #RT*CR, OTYPE 
BEQ OREND 
CALL ADDCR 
BR OREND 



Variable length record. 



ORVL: 



000366 



1*: 



MOVB 


(Rl )+, R3 


BEQ 


2* 


CMP 


R4, R5 


BLO 


1* 


CALL 


OUTBUF 


MOVB 


R3, (R4) + 


DEC 


R2 



SEQUENTIAL 
RELATIVE 



GET CURRENT POINTER INTO OUTPUT BUFFER 
GET POINTER TO END OF BUFFER 
GET SORT RECORD LENGTH 



GET OUTPUT FILE TYPE FLAGS 
FILES -117? 

BRANCH IF NOT 
SEQUENTIAL? 
BRANCH TO FILES-11 
BRANCH TO FILES-11 
COBOL FILE? 
BR IF NOT 
COBOL ASCII FILE? 
BR IF YES 

COBOL BINARY RECORD 
FILE TYPE = FORTRAN? 
BR IF NOT 

RELATIVE OR BINARY? 
BR IF EITHER 

FORTRAN, SEQUENTIAL! ASCII 
VARIABLE LENGTH INPUT RECORDS? 
BR IF YES 



BR IF NOT 

FLUSH IHE BUFFER 

MOVE RECORD TO OUTPUT BUFFER 

MOVE ALL OF RECORD 



ADD CR-LF? 
BR IF NOT 
ADD CR-LF 



GET NEXT CHAR FROM RECORD 

BR IF END OF RECORD HIT 

OUTPUT BUFFER FULL? 

BR IF NOT 

FLUSH BUFFER 

MOVE CHAR TO OUTPUT BUFFER 

CONTINUE MOVING RECORD 



4 

I 



SORT^ 



'A: 
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58 00 
59 

60 00 

61 00 

62 00 

63 00 

64 00 

65 00 

66 00 

67 00 
68 

69 00 

70 00 

71 00 

72 00 



i b6 003367 



5160 
5166 
5170 
5172 
5174 
200 



52 



5204 
"■>^06 

5210 
5216 
5220 
'^^24 



032767 
001010 
005702 
001406 
112703 
004767 
005302 
003374 



If 



OOOOOOG OOOOOOG 2*: 



000040 
000742 



4*: 



BGT 
output 
BIT 
BNE 
TST 
BEQ 
MOVE 
CALL 
DEC 
BGT 



ORVL 
organi zation 



= relative* pad with blanks to full record length. 



032767 OOOOOOG OOOOOOG 3*: 

001540 

004767 000736 

000535 



#RT«VLN, OTYPE 

3* 

R2 

3* 

#' ,R3 

OUTCHR 

R2 

4* 

Insert carriage-return line- 
BIT #RT*CR, OTYPE 
BEQ ORPND 
CALL ADDCR 
BR OREND 



ALLOW SHORT OUTPUT RECORDS? 

BR IF YES 

NEED PADDING? 

BR IF NOT 

GET PADDING SPACE 

STORE BLANKS INTO END OF RECORD 

PAD TO FULL RECORD LENGTH 



feed. 
;NEED TO INSERT CR-LF? 
;BR IF NOT 
; INSERT CR-LF 



S0RT2 
DO MERGE 
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- PAaa 



COBOL 



4 


00r^226 


1 1 2703 


000012 


5 


00Z>232 


004767 


000710 


6 


005236 


112103 




7 


005240 


001407 







005242 


020405 




9 


005244 


103402 




10 


005246 


004767 


000266 


11 


005252 


110324 




12 


005254 


005302 




13 


005256 


003367 




14 








15 


005260 


032767 


OOOOOOG OOOOOOG 


16 


005266 


001010 




17 


005270 


005702 




IB 


005272 


001406 




19 


005274 


112703 


000040 


20 


005300 


004767 


000642 


21 


005,304 


005302 




22 


005306 


003374 




23 


005310 


1 1 2703 


000015 


24 


005314 


004767 


000626 


25 


005320 


000477 





ORCA: 



1*. 



2*: 



3*; 



If 



5$: 



4$: 



asc i i 


re cord. 


MOVE 


#LF, R3 


CALL 


0U1CHR 


MOVE 


(Rl>+, R 


BEQ 


3* 


CMP 


R4, R5 


BLO 


2* 


CALL 


OUTfiUF 


MOVE 


R3i (R4) 


DEC 


R2 


BGT 


1* 


le org 


ani zation 


BIT 


#RT*VLN 


BNE 


4* 


TST 


R2 


BEQ 


4* 


MOVE 


# ' , R3 


CALL 


OUTCHR 


DEC 


R2 


BGT 


5-$ 


MOVE 


#CR,R3 


CALL 


OUTCHR 


BR 


ORf-MD 



(And FORTRAN sequential* ascii record) 
i INSERT LEADING LINE-FEED 

3 i GET NEXT CHAR FROM RECORD 

; BR IF END OF RECORD REACHED 

> OUTPUT BUFFER FULL? 

i BR IF NOT 

; FLUSH BUFFER 
+ i MOVE CHAR TO OUTPUT BUFFER 

i MORE TO MOVE? 

i BR IF YES 
is RelativBi pad with blanks to full record length. 
, OTYPE i ALLOW SHORT OUTPUT RECORDS? 

} BR IF YES 

i DO WE NEED PADDING? 

; BR IF NOT 

; GET PADDING BLANK 

i INSERT BLANKS 

iFILL RECORD FILLED 

; WOW INSERT CR 



i 
I 

c 
c 
i 

i 
€ 
€ 

i 

€ 
€ 

4 

i 

i 
I 
I 



DO HEM^t- ''ir 
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t 

c 



FILES-il sequential access 



4 


005222 


005204 




5 


005324 


042704 


OOOOOl 


7 


005330 


010103 




8 


005332 


060203 




9 


005334 


032767 


000000 


10 


005342 


001405 




11 


005344 


105743 




1? 


005346 


001010 




13 


005350 


005302 




14 


005352 


003374 




15 


005354 


000405 




16 








17 


00 r 356 


122743 


000040 


18 


005362 


001002 




19 


005364 


005302 




20 
21 
22 


005366 


003373 




005370 


020405 




23 


005372 


103402 




24 


005374 


004767 


000140 


2r' 


005400 


010224 




26 


005^02 


001407 




27 


005404 


020405 




28 


005406 


103402 




29 


005410 


004767 


000124 


30 


005414 


112124 




31 


005416 


005302 




31' 


0v)5420 


003371 




33 


005422 


000436 




34 








3e> 








36 








37 


005424 


042702 


OOOOOl 


38 


005430 


032767 


000000 


39 


005436 


001007 




40 








41 


005440 


010103 




42 


005142 


060203 




43 


005444 


005743 




44 


005446 


00 1 003 




Ali 


005450 


162702 


000002 


46 


0054 54 


003373 




47 








48 


005456 


020405 




49 


005460 


103402 




50 


005462 


004767 


000052 


51 


005466 


010214 




52 


005470 


052724 


1 00000 


53 


005474 


006202 




54 


005476 


001407 




55 


OOfr-OO 


020405 




56 


005502 


103402 




57 


OO550<1 


004767 


000030 



ORRS: 



>*: 



7*: 



1*: 



3$: 



5*: 



4*; 



6*; 



INC 
BIC 

Strip tra 
MOV 
ADD 
BIT 
BEQ 
TSTB 
BNE 
DEC 
BGT 
BR 

ASCII rec 
CMPB 
BNE 
DEC 
BGT 

Record si 
CMP 
BLO 
CALL 
MOV 
BEQ 
CMP 
BLO 
CALL 
MOVB 
DEC 
BGT 
BR 



R4 

#1, R4 
iling nullt- or blank 

Rl, R3 

R2, R3 

#RT$RB» OTYPE 

7* 

--<R3> 

1* 

R2 

2* 

1« 
ording mode 

#' ,-(R3> 

1* 

R2 

7-4i 
wmd. 



s. 



ze 



R4, R5 

3« 

DUTBUF 

R2. <R4) <- 

6* 

R4, R5 

4$ 

OUTBUF 

(Rl )+, <R4) + 

R2 

5* 

ORFND 



COBOL Binari) lecoid. 

ORCB: BIC #1,R2 

BIT #RT*OR, OTYPE 

BNE 1 * 
■> Strip trf3iling nullt-. 

MOV Ri,R3 

ADD R2. R3 

2«: TST - <R3) 

BNE 1 * 

SUB #2.. R2 

BGT 2* 

i Build recoTtl cojitral word. 
I*: 



3^: 



5*: 



CMP 


R4, R5 


BLO 


3ii 


CALL 


OUTBUF 


MOV 


R2, (R4) 


BIS 


#100000, <R4)+ 


ASR 


R2 


BEQ 


6* 


CMP 


R4> R5 


BLO 


4* 


CALL 


OUTBUF 



ROUND BUFFER POINTER TO NEXT 
WORD 



GET ADDRESS OF RECORD 

POINT PAST LAST WORD OF RECORD 

BINARY MODE? 

BRANCH IF NOT 

SCAN OFF TRAILING NULL WORDS 

BR IF REACHED NON-NULL 

KEEP TRACK OF RECORD LENGTH 

BR IF MORE TO CHECK 



IS OUTPUT BUFFER FULL? 
BR IF NOT 
FLUSH BUFFER 

; STORE RECORD LENGTH 
BR IF NONE 
OUTPUT BUFFER FULL? 
BR IF NOT 
FLUSH BUFFER 
MOVE RECORD TO OUTPUT BUFFER 



MAKE SURE RECORD LENGTH IS EVEN 
ORGANIZATION = RELATIVE? 
BR IF YES 

GET ADDRESS OF RECORD 

POINT PAST LAST WORD OF RECORD 

SCAN OFF TRAILING NULL WORDS 

BR IF REACHED NON-NULL 

KEEP TRACK OF RECORD LENGTH 

BR IF MORE HO CHECK 

IS OUTPUT BUFFER FULL? 

BR IF NOT 

FLUSH BUFFER 

STORE RECORD LENGTH 

SET RECORD-EXISTS FLAG 

GET # WORDS IN RECORD 

BR IF NONE 

OUTPUT BUFFER FULL? 

BR IF NOT 

FLUSH BUFFER 



i 
f 
« 
I 
f 
I 
< 
i 
i 
I 
i 
i 

i 

i 

i 
i 
i 
I 
i 
i 



SORTS Bi'R'i 
DO HERCiE tV,-^i 
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60 C.H-:'M4 0033/1 
6:1 OOL-^'16 000^00 



64 

6?) oot'[?;'(> 0J0467 ooooooe 



66 00:/f-e'4 

67 00:>^-P6 
6B 00U^'30 

69 0\}r>iv3;::' 

70 00!; '^34 
7 J 00;.''36 



01r'60!5 
01P604 
012603 
012602 
012601 
000207 



4$: 



6*; 



MOV 


( R 1 ) +, ( R4 ) i- 


DEC 


UP. 


BGT 


f-li 


BR 


{jr< HMD 



; MOVB RECORD -10 OUTPUT BUFFER 



Finished mDvinp record to output- buffer. 

i SAVE OUTPUT BUFFER POINTER 



ORFND: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



R4, ORPOS 
(SP)+, RD 
( SP ) ♦■, R4 
( Sf^ ) +, R3 
( BP ) +.. R2 
(BP)+, Rj 



DO MM'b 



i'i;f\\ 



V05. 01 h n(<ri6r.\t 



.■:rii 



4 








5 








.'. 








7 








8 








9 








10 








11 


oor>'='40 


004767 


000014 


IP 


00v-;'4'i 


1 03004 




13 


00^^:'46 






14 
16 


00 :»::•- '6 


000;'07 










17 








1 B 








19 








20 








21 








?P 








23 








24 








2J:; 








26 








27 


oo:.e»6o 






28 


001 '674 


103523 




29 


00:'676 


032704 


000001 


30 


00:y70P 


0014O1 




31 


00'.>/04 


105024 




32 


Q0^>706 


1 66704 


0000000 


33 


oo:>7i2 


001477 




34 


oo:./i4 


006204 




3 b 


0CO/J6 






36 


O06O72 


103424 




37 


006074 


062704 


000377 


3B 


006100 


042704 


000377 


39 


006 104 


000304 




40 


006106 


060467 


173124 


4.1 








42 


006112 


016704 


OOOOOOG 


43 


006116 


016767 


OOOOOOG OOOOOOG 


44 


006124 


010467 


OOOOOOG 


4f' 


OOcs t 30 


010405 




46 


006132 


066705 


OOOOOOG 


47 


006136 


010567 


OOOOOOG 


48 


006142 


000241 




4 9 


006.144 


000207 





OUIBUF is called to unite the current output buffer to the final output file. 

An abort occurs if the output file overflows. 

Inputs: 

R4 = Pointer to end of data in buffer. 

OBUFl = Pointer to start of buffer. 
Outputs : 

R4 = Address of iitart of fresh buffer. 

r?5 = AddreBB of end of buffer. 



OUTBUF: CALL F?LOUT 

BCC 1 $ 

XXX 16 

1$: RETURN 



7RY TO WRITE BUFFER TO FILE 
BR IF NO OVERFLOW 
FILE OVERFLOW 



RLOUT is called to write the current buffer full of data up to 

(but not beyond) the L^tiii of the current output file. 

The c-flap is set on return if the end of file is reached. 

Inputs: 

R4 = AddroE.G of end of data in current output buffer. 

OBUFl = Addref:.s of current output buffer. 
Outputs: 

R4 = AddrefrS of &t£trt of fresh buffer. 

R5 = AddroDG of end of buffer. 



RLOUT: 



1«: 



let 



3$: 



9*: 



*WAIT 


#FD3 


BCS 


94! 


BIT 


#1, R4 


BEQ 


21; 


CLRB 


(R4)^- 


SUB 


OBUFl, R4 


BEQ 


3* 


ASR 


R4 


$WR1TE 


m-V3> OBUF 1 


BCS 


9« 


ADD 


#377, R4 


BIC 


#377, R4 


SWAB 


R4 


ADD 


R4, NXOBLK 


p new b 


u f f e r p o i n t 


MOV 


0BUF2, R4 


MOV 


OBUFl, OBUF 


MOV 


R4, OBUFl 


MOV 


R4, Rr» 


ADD 


OBUFSZ, R5 


MOV 


R'J, OBFEND 


CLC 




RETURN 





WAIT FOR LAST WRITE TO FINISH 
BR IF ERROR 

IS R4 ON EVEN BYTE BOUNDARY? 
BR IF YES 
PUT IN NULL 
GET # BYTES IN BUFFER 
BR IF BUFFER EMPTY 
GET # WORDS IN BUFFER 
, R4, NXOBLK 

BR IF HIT END OF FILE 

BOUND « WORDS UP TO BLOCK BOUNDARY 

i GET « BLOCKS WRIT1EN 

i ADVANCE FILE BLOCK COUNTER 



ers. 



i GET ADDRESS OF NEW BUFFER 
i SWITCH BUFFERS 



i GE1 ADDRESS OF END OF BUFFERR 
; SAY NOT AT END OF FILE 



i 

i 
i 
€ 
4 
I 
< 

« 

1 
( 



1RT2 



SOH'I 



DO MFRv;E rVi' S 



PHARir 
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4 








6 








7 


0n,'..l46 


020405 




{:( 


OvV.'5U 


103402 




9 


006 H'2 


004767 


177362 


10 


0061 r;6 


1 1 0324 




11 


006160 


000207 




IP 








13 








14 








1 f» 








li?> 








17 








IB 








19 








20 


006162 


010346 




21 


0061.64 


012703 


000015 


22 


006170 


004 767 


177752 


23 


006174 


012703 


000012 


24 


006200 


004 /67 


177742 


25 


006^04 


012603 




26 


00v:!206 


000207 





OUTCHR is cailBd to place the rhararter in R3 in the output buffer. 
Inputs: 

F<4 - Pointer intc cutput bof-fer. 

R5 == AddrfKi> of end of output buffer. 



OUICHR: CMP 
BLO 
CALL 

1*: HOVB 

RETURN 



R4, R5 
l-ji 

OUTBUf- 
R3, <R4) + 



10 OUTPUT BUFFER FULL? 

BR IF NOT 

FLUSH THE BUFFER 

MOVE CHAR TO OUTPUT BUFFER 



ADDCR is called to insert Carriage-Teturn ?< Line-feed into the 

current output buffPT-. 

Inputs: 

R4 = Pointer into output buffer. 

R5 = Addrest. of end of output buffer. 



ADDCR: MOV 
MOV 
CALL 
MOV 
CALL 
MOV 
RETURN 



r<3, " ( 3P ) 
#CR, R3 

omcHR 

#LF, R3 
OUT CHJ? 
(SP)+> R3 



i INSERT CR 
; INSERT LF 






Plir.SF 
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SBTTL bUJfRDiniNFS 



3 
.-1 






6 


006210 


010146 


7 


006212 


010246 


8 


006214 


010401 


9 


006216 


042701 177760 


10 


006222 


012702 100000 


11 


00^226 


000402 


12 


006230 


00024 1 


13 


006232 


006002 


14 


006234 


005301 


15 


006236 


002374 


16 


006240 


010401 


17 


006242 


006201 


IS 


006244 


006201 


19 


0Oi-'246 


006201 


20 


006250 


006201 


21 


006252 


006301 


22 


006254 


066701 172720 


23 


006260 


020167 172716 


24 


00626''} 


002052 


2D 


006266 


030211 


26 


006270 


001050 


27 


006272 


05021 1 


23 


006274 


012602 


29 


0O6276 


012601 


30 


006200 


000207 


31 






32 






33 






34 






3L> 


00620r' 


010246 


36 


00620*? 


010v346 


37 


006.206 


010446 


38 


006010 


016701 172664 


39 


006314 


005721 


40 


006316 


001776 


41 


0062r^0 


014102 


42 


006322 


005003 


43 


006324 


006102 


^4 


006326 


103402 


45 


006330 


005203 


46 


006232 


000774 


47 


006234 


010v304 


43 


006336 


000241 


49 


006240 


006002 


50 


006342 


005303 


51 


006244 


002374 


52 


006346 


010211 


53 


006350 


166701 172624 


54 


006254 


006301 


55 


006256 


006301 


56 


006260 


006301 


57 


006262 


060401 



ROUTINE TO FREE THE DISK BLOCK WHOSF ADDRESS IS IN R4. 
R4 JS NOT Al iERID BY THE SUBROUTINE. 

E-JAVE SOME REGISTERS. 



GET DISK GRANULE «. 
GET # OF BIT IN WORD. 



REIGRN: 


MOV 


Rl, ~<SP> 




MOV 


R2, -<3P) 




MOV 


R4, Rl 




BIC 


#<:-0177760:>. Rl 




MOV 


*l<:'^0100000>. R2 




BR 


1* 


2*. 


CLC 






ROR 


R2 


1*: 


DEC 


Rl 




BGE 


2'li 




MOV 


R4,R1 




ASR 


Rl 




ASR 


Rl 




ASR 


RJ 




ASR 


Rl 




ASL 


Rl 




ADD 


GRNTBL. Rl 




CMP 


Rl, GRNEND 




BGE 


RE) OVF 




BIT 


R2. (Rl.) 




BNE 


RELOVP 




BIS 


R2, <R1 > 




MOV 


(SP)+, R2 




MOV 


(SP)+, Rl 




RETURN 




i ROUTINE TO GET THE ADDRESS 


} "IHE 


ADDRESS 


IS RETURNED IN 


GETGRN: 


MOV 


R2, - ( 3P ) 




MOV 


R3, -<SP> 




MOV 


R4, "<SP> 




MOV 


GRNTBL,R1 


1*: 


TST 


( R 1 ) + 




BEQ 


1* 




MOV 


- < R 1 ) , UP 




CLR 


R3 


3$: 


ROL 


R2 




BCS 


2« 




INC 


R3 




BR 


3-li 


2f : 


MOV 


R3, R4 


4«: 


CLC 






ROR 


R2 




DEC 


R3 




BGE 


41! 




MOV 


R2, inn 




SUB 


GRNTBL, Rl 




ASL 


Rl 




ASL 


Rl 




ASL 


R 1 




ADD 


R4, Rl 



POSITION BIT TO PROPER POSITION. 



GET INDEX TO WORD. 
(DIVIDE BY 16) 



CVT TO BYTE INDEX 

GET ADDRESS OF WORD. 

DON'T GO PAST END OF TABLE 

GRANULE SHOULD BE BUSY NOW. 

MARK GRANULE AS FREE. 
RESTORE REGISTERS. 



A FREE DISK GRANULE. 



SAVE SOME REGISTERS. 



GET ADDRESS OF START OF BIT TABLE 
LOOK FOR WORD WITH FREE GRANULE. 
BRANCH IF NONE IN THIS WORD. 

i GET FREE GRANULE BITS. 

SEARCH FOR FREE GRAN BIT. 
BRANCH WHEN FOUND. 
KEEP TRACK OF ADDRESS. 

SAVE BIT INDEX TO GRANULE. 
NARK GRANULE AS USED NOW. 
REPOSITION BIT. 



RESTORE WORD WITH GRANULE BUSY. 

GET WORD INDEX. 

CONVERT WORD TO BIT INDEX. 



ADD IN BIT INDEX WITHIN WORD. 



S0R12 


SijH 1 - - 


PHABI- 2 


MACRO V 


SUBROUTIW- » 






5G 


00636-1 


020 J 67 


ooooooe 


IV? 


006r>70 


003004 




60 


006rr/i-:> 


01i;'604 




61 


006?7'1 


012603 




6P 


006::-76 


01P602 




63 


006100 


000207 




6^1 


OO.'.'iO^' 






6f7 


Or^A-Ur' 






6fS 








67 




006424 ' 




60 




006424 




69 




000001 





? MACRO V05. Olt. Mondiuj 06-nay~85 17:46 Parje- 14-1 



CMP 
BGT 



Rl, iMXTBLK 
CiVlf-IP 





MOV 


(SP}+, R4 




MOV 


<SP> ^, R3 




MOV 


(SP) i-, R2 




RETURN 




OVTMP: 


XXX 


S7 


RELOVF: 


XXX 


13 


i 

P2T0P 


= 


. +,'' 


P2SIZ 


= 


P210P •P2BASE 



; MAKE SURE WE DON'T OVERFLOW. 
; T E MP FILE VF R P L O W 



EN].> 



I 

€ 






Pi lASr- 



MACRO V05. Oib MoudAUf 06-Hau-95 17; -16 



c; (! e 



.i^r 



ABORT -= 


ii- H- i:- tj K- K- 




FIL.S"! --^ 


#<5-*lf«-«^ G 




MRGSFT 


002i02R 


002 


owe NT == 


*«-«-*«-i?- G 




RT*VLN= 


*<5^«-*15-* G 




ADDCR 


00oJ6:w 


002 


r-INCLS 


003376R 


002 


MXFILS- 


*fi-i;ij-*K- G 




PENMRG 


001546R 


002 


RTll - 


OOOOOO 




BE- LI 


000007 




FJNFLG 


001242R 


002 


MXFIL2^= 


■k-K-fi- <?•«■«• G 




PFSPC =^=^ 


000002 




RWDLEN= 


**-«i{-fr* G 




BIGHS'I^- 


177/77 




FINMOV 


0024 7 2R 


002 


MXMRG ■= 


000050 




P2BASE- 


OOOOOOR 


002 


SEVERR- 


000010 




BLKFC == 


!:■*+:-«■ if -K- 




FLBLK ^ 


*«-»is-«* G 




MX MR 02= 


000120 




P2SIZ =- 


006424 G 




SFLAGS=-- 


*««^**« G 




BUFSIZ^-^ 


00 1 000 




FLUSH = 


*-fi-lS-K-*-* G 




NFILE2 


001204R 


002 


P2TERM-- 


«-«»«-icfi- G 




S0RTP2 


001244RG 


002 


CHN1-(3T=^ 


000-^00 




FT*'f =-• 


■fr^{•K•*•^5•■»i■ G 




NOERR = 


000001 




P2T0P --■■ 


006424RG 


002 


SRFIN 


003330R 


002 


CHNO --• 


000000 




F*INPL=- 


****«•* G 




NUMKY2=^ 


fi-#^i-«-K-« G 




Q 


001232R 


002 


SR2 


002270R 


002 


CI SRI 2-= 


»«•*•■«•**!• 




GETGRN 


006302R 


002 


NUMMRG 


001206R 


002 


GLEN =^- 


000003 




SR3 


002530R 


002 


CLSOur 


004646R 


002 


GRNEND 


001202R 


002 


NXOBLK 


00i236R 


002 


RC 


001230R 


002 


SR4 


002506R 


002 


COMPAR-- 


*«•+:■«•»«• 




ORNTBL 


001200R 


002 


NXTBLK^= 


<s-#^i-«-««- G 




RECl EN= 


■»***•«■«• G 




SR4L 


003174R 


002 


CR 


0000 J f? 




HB^ARS= 


000006 




OBFEND-= 


■K"R")i"U** G 




RELGRN 


00621 OR 


0O2 


SR5 


003202R 


002 


CSPCOF^ 


000376 




HB$DF5= 


000002 




OBUFSZ= 


<!•■»•#*«•* G 




RELOVF 


0064 1 2R 


002 


SR6 


0032 12R 


002 


CTRf-Z =-■■■ 


00003P 




HB^DIP= 


000030 




OBUFl = 


«■•«•«*•»*• Q 




RLOin 


005560R 


002 


SR7 


003322R 


002 


CUROFi=-- 


*«•**•«» 




HBfDUP= 


000001 




0BUF2 = 


»»#■&«« G 




RMON =--■ 


000054 




STRAT 


001454R 


002 


DBLKFC- 


00000!!' 




HB$RIU= 


000032 




OFLIIMK 


001240R 


002 


RN 


000620R 


002 


STRFIN 


001652R 


002 


DOMRO 


00.1 6 K^R 


002 


HB$RSZ-= 


000004 




ORCA 


005226R 


002 


RO 


001234R 


002 


TMPMOV 


0023 50R 


002 


DSKCVT-- 


**#**«• 




HD*DEV= 


000000 




ORCB 


005424R 


002 


RSTSJB- 


000404 




TOPMEM= 


*»«•««■* G 




EMTBl K 


001 21 OR 


002 


HD$*SZ-= 


000004 




OREND 


005520R 


002 


RT$CBL== 


»***«•*• G 




UEOF = 


*#<-#*«• G 




EWDRUN 


0031 44 R 


002 


IRPOS 


000740R 


002 


ORFL 


00r>102R 


002 


RT*CR " 


«■»{■■«■*■»«■ G 




USERRB- 


000053 




eOFBUF= 


■K-*-**-K-K- G 




I TYPE = 


«■«•«■«•«■»!• G 




ORPOS == 


+f#-K««« G 




RT$DBL= 


#-fi"iHJ-#» G 




USRLOC= 


000046 




ERR 


00<0006 




JSW 


000044 




ORRS 


005322R 


002 


RT*FTN== 


«•«•»*«■*■ G 




VERSNO= 


000276 




ERRLOC== 


000052 




KSTRT = 


*J^«-«K-«- G 




ORVL 


0051 36R 


002 


RT*F11= 


*■«•**«•# G 




WRDS =-- 


000004 




FD3 


*«■+:*•«& 




KTYPE = 


*■»«•«■«•«■ G 




OTYPE := 


if***** G 




RT«OR = 


#*K"B-«-1i- G 




XEMT = 


*«•«■*«•* G 




FE 


000360R 


002 


LF 


000012 




OUTBUF 


005540R 


002 


RT40S == 


*****fr G 




XXX16 == 


005546R 


002 


FI 


000500R 


002 


LOC 


000120R 


002 


OUTCHR 


006146R 


002 


RT*OX == 


*«•*■«■*« G 




XXX17 = 


006402R 


002 


FILFL ^- 


«■«■};■»?•»» 




IDSER 


00024 OR 


002 


OUTREC 


004766R 


002 


RT«RA ^ 


^im-^-a-ti- G 




XXX18 -■= 


006412R 


002 


FILLST 


005504R 


002 


MAJMRG 


001576R 


002 


OVLBIT= 


001000 




RT*RB = 


#«••«■*«■# G 




... VI - 


000003 




FILNB == 


iJK-s-fi-**:- 




^{ROBA 


001060R 


002 


OVTMP 


0064 02R 


002 


RT*TXT= 


*«■«■«•«•«■ G 




. . . V2 =- 


000061 




FJLRN - 


«-t<-i;f*'«- 




HROLST 


OOOOOOR 


002 




















. ABS. 


000000 
000(^00 


000 
001 


(RW, I, GBL> ABS. OVR) 
(RW, I,LCL,REL, CON) 






















S0RT2 


006422 


002 


(RU, I,GBL, REL,OVR) 






















Errors 


d €? t c. < t e -■ i : 






























«*•«■ Assembler Btat i i> tics 



Work Pilp readE- 
Wok file u-nzes 
Si it? of WDck file 
Size of cere pool 
Operatinc! f;iiEt-em 







15783 

10432 

RT~11 



Words 
Words 



62 Pages) 
72 Pages) 



Elapsed tiR.p: 00:00:26.36 

, DB4: CBSR IP- D^-^: CBSHTH. CRF= DK: CBSRTH> CBSRT2/C 



SORTS 


SHRT -- 


PHASE 2 HACRO V05. 


01b Mondt? 


ij 06-liay- 


-85 17:46 


Patir S-1 
















Cr OHS- re 


'{-&T(i:rU- Ir 


table (CREF V05. 03) 






















. . . VI 


6 CL' 


6 ■32 
3 -05 


6 -33 
12-27 


6-83 

12-27 


3-20 
12-35 


8-20 
12- -35 


8-21 


8-21 


8-71 


8-71 


8-72 


3-72 


8-73 


8-73 


. , . V? 


6 i: n 


6 82 


6-32# 


6-82*f 


6-83 


6~33^f 


3-20 


3-20 


3-20« 


8~20tt 


8-21 


8-21 # 


8-71 


8-7 1# 




13 -Tri 


'72 


8-72# 


B -72« 


8-73 


S--73# 


8-85 


8-85*! 


12-27 


12-27# 


12-35 


12-35 


12-35# 


12-35# 


ABORT 


R 'jS 


12 -13 


14-64 


14-65 






















ADDCR 


■/AS 


9-71 


1 3-20# 
























BELL 


1-AOt! 




























BlGBSl 


) -:i6fj 




























BLKFC 


;;--46 


3-25 


























BUFS12 


i -3411 




























CHNB I T 


.! 53# 




























CHNO 


1 07# 
S--73 


6-82 
8-85 


6-82 
8-85 


6-03 
12-27 


6-83 
12-27 


8-20 
12-35 


8-20 
12-35 


8-21 


8-21 


8-71 


8-71 


8-72 


S~72 


8-73 


CI SRI 2 


^^"38 


3-5 


























CLSOUT 


S 15 


S-23 


8-45 


8-51 


8-85# 




















COMPAR 


r' A3 


6-129 


























CR 


i -SB-Jf 


2-70# 


10-23 


13-21 






















CSPCOF 


i--6'>« 




























CTRLZ 


1 4J# 


2 72« 


7-42 
























CUROFL 


0-4E» 


4 -29« 


5-21* 


5-42 


5-105 




















DBLKFC 


J. -3M 




























DOMRG 


5--'# 




























DSKCVT 


^ A4 


6-31 


























EMTBLK 


r->.~77# 




























ENDRUN 


A -7 5 


6 -105« 


























EOFBUF 


?-39 




























ERR 


l-90fi 


6-02* 


6-82 K- 


6-82* 


6-83 


6-83* 


6-33* 


6-83* 


8-20* 


8-20* 


8-20* 


8-21 


S-21* 


8-21* 




8-21 «■ 


8-71 


8-71* 


8-71* 


e-71* 


8-72* 


8-72* 


8-72* 


8-73 


8-73* 


8-73* 


8-73* 


8-85 


8-85* 




3- B5r. 


8-05* 


12-27 


12-27* 


12-27* 


12-27* 


12-35* 


12-35* 


12-35* 












ERRLOC 


l-49« 


6-82 


6-83 


8-20 


8-21 


8-71 


8-72 


3-73 


8-85 


12-27 


12-35 








F*IWPL 


?-':.J 


7-40 


8-13 


8-61 






















FD3 


2-33 


8-20 


8-21 


8-71 


8-72 


8-73 


8-85 


12-27 


12-35 












FE 


i:- ft3# 


5-80* 


6-116 
























FI 


P 64# 


5-81* 


6-139 
























FILFL 


? 44 


5-109* 


























FILLST 


7-37 


7 41 


8-4# 
























FILWB 


P-4 3 


5-40 


5-52 


6-80* 






















FILRW 


r? -40 


4-1 1 


4-45 


5-13 


5-16 


5-22* 


5-35 


5-51 


6-109* 












FILST 


,2 40 


5-92 


5-106 


5-108* 


6-108* 




















FINCLS 


7 't; 


7 -laa 


























FINFLG 


2 84 # 


3-54* 


4-27* 


5-7 


5-24 


5-103 


6-18 


7 4 














FINMOV 


^■19 


6-54# 


























FLBLK 


? 44 


6-39* 


7-12* 
























FLUSH 


£-43 


6-40 


7-13 
























FT*T 


P-45 




























GETQRN 


5 :07 


6-38 


14-35# 
























GRNEND 


;? -74« 


3 17* 


1 4-23 
























GRNTBL 


2-7 3» 


3-10* 


14-22 


14-38 


14-53 




















HB$ARS 


1 -7 4 If 




























HB*DFS 


} 72?f 




























HB^DIP 


j, -vT.tt 




























HB*DUP 


i-nn 




























HBfRIU 


.1 -7/j# 




























HB*RSZ 


:! -7 3 If 




























HD^^SZ 


J Cl« 




























HDU>EV 


3 BOff 





























S0RT2 Bi'in - PHAS!-- ? HACRO V05. Oih Mondi-y 06-!1ay-S5 J 7: 46 PiJi^f- S-:^ 
Ctobb vei'evLyirf' tabic iC'i^.l- V05. 03) 



IRPOS 


2 clA^} 


S -9H^ 


6-62 


6-100* 


















HYPE 


2 47 


6 47 


6-91 


9-32 


















J3W 


: hiii 
























KSTRf 


2 ^e> 
























KTYPE 


r,-3? 
























IF 


;i 39# 


2-71# 


7-30 


10-4 


13-23 
















LOC 


2 &!# 


3--39» 


6-25 


6-55 


6-61 


6-126 


6-128 












LOSER 


2 •A2# 


5-03«- 


6-125 


6-136 


6-137* 
















MAJHRG 


-? -22 


4 36 


4 -44# 




















MRGBA 


2 67« 


3-4 1 * 


5-90 


6-63 


6-73 
















MRGLST 


2-60« 


5-47 


5-57* 


5-89 


6-79 


6-106 














MRGSET 


t> -iSS 
























MXFTL2 


2 40 


4-13 


4-47 


5-19 


5-55 
















MXFILS 


2-40 


4 -29 


4-53 




















MXMRG 


2 -57# 


2-&8 


2-60 


2-61 


2-62 


2-63 


2-64 


2-65 


2-66 


2- 


-67 




MXMRG2 


2--58# 


3-46 






















NFII.E2 


2 7i># 


3-49* 


4-24 


4-32 


4 -39 


4-56 


4-58 












NDERR 


1 56# 
























NUMKY2 


2-42 
























NUMMRG 


2-76# 


4-28* 


4-41* 


4-59t 


4-60* 


5-59 


5-68 


5-95 










NXQBLK 


2 -ei# 


3-53* 


8-20 


8-25* 


8-72 


12 35 


12-40* 












NXTBLK 


2 43 


3-11 


3-23 


14-58 


















OBFEND 


2-41 


3-32* 


6-27 


6-43 


7-19 


9-11 


1 2-47* 












OBUFl 


2-42 


3-30* 


5-23 


6-35 


6-41 


7-7 


8-20 


8-67 


12-32 


12 


-35 


12-4 


0BUF2 


2-42 


3-33* 


8-72 


8-75 


12-42 


12-43* 














OBUFSZ 


2-41 


2-42 


3-29 


3-42 


12-46 
















OFLINK 


2-82# 


5-106* 


7-12 




















ORG A 


? 25 


7-31 


10-4# 




















ORCB 


V .-i^ 


1 1 -37# 






















OREND 


9 -4J^> 


9-47 


9-70 


9-72 


10-25 


1 1 -33 


11-61 


1 1 -65« 










ORFL 


9 -21 


9-37# 


9-42 




















ORPOS 


2-43 


5-2B* 


6-26 


6-49* 


7-8 


7-18 


9-10 


1 1 -65* 










ORRS 


? -20 


1 1 ■-4« 






















DRVL 


7 -33 


7-5 1# 


9-58 




















OTYPE 


2-51 


7-23 


7-35 


8-4 


8-30 


9-16 


9-44 


9-60 


9-69 


10 


-15 


11-9 


OUTBUF 


3-10 


S-81 


9-39 


9-55 


10-10 


11-24 


1 1 -29 


1 1 -50 


1 1 -57 


12- 


~11# 


13-9 


OUTCHR 


7-31 


7-43 


9-65 


10-5 


10-20 


10-24 


13 -7# 


13-22 


13-24 








OUTREC 


6-' 5^^ 


9-5# 






















VLB IT 


i 524 
























OVTMP 


!•? 59 


14 -64# 






















OWCNT 


2 4vA 


6 -02 


6-82 


8-20 


8-20 


0-72 


3-72 












P2BASE 


2 4# 


1 4 68 






















P2SIZ 


2-34 


14 -68# 






















P2TERM 


2 46 


e-86 






















P2T0P 


2 -34 


3-^^ 


14-67# 


14-68 


















PENi-IRG 


4 23 


4 -25 


4-32# 




















PFSPC 


1 es?5 
























Q 


2 -77# 


3-52* 


5-98* 


6 -24 


6 -54 


6- -60 


6-72 


6-99 


6-115 


6- 


-127 


6-1 


Ql EN 


J ■ '4a^' 
























RC 


2- V3# 


3-t>l* 


5 -97* 


6-5 


6 - 1 3* 
















RECLEN 


2 -27 


6 -29 


6-66 


8-40 


9-12 
















RELGRN 


2-24 


^.-78 


14-6# 




















RFLOVF 


I'i -::4 


1 4 ■: '6 


14--65# 




















RLDUl 


:,■■; ■ • '1 3 


a 49 


12-11 


12--27# 


















RMON 


.! '^''^r: 
























RN 


, ' / !'« 


If -82* 


6-122 


6-133 


6-134* 

















3 2-44* 



11-38 



S0RT2 S(t'<T - - PHASE 2 MACF<0 V05. 01b Monday 06-Hay-S5 17:46 F'esf G-3 
Cro&B referC'TK f table (CR&> V05. 03) 
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